home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / databasev3.1reg.lha / db3.1 / Examples / ARexxDemos / FirstUpper.db < prev    next >
Text File  |  1994-09-03  |  359b  |  12 lines
  1. /* Rexxprogram for db that converts the first character of every word in the
  2.    current stringgadget to UPPER
  3.    Written by Richard Ludwig */
  4. options results;GETFIELD;ret=''
  5.  
  6. if DATATYPE(result)='CHAR' & result~='' then do
  7.     do t=1 to WORDS(result)
  8.         ret=ret||UPPER(LEFT(WORD(result,t),1))SUBSTR(WORD(result,t),2)' '
  9.     end
  10.     PUTFIELD LEFT(ret,length(ret)-1)
  11. END
  12.